|
|
|
|
|
|
|
You do, however, have to create a function in a standard module that can be called by Windows, and it is critical that your function's parameters match exactly what Windows uses when calling the function. The modRasTest module contains the following function: |
|
|
|
|
|
|
|
|
Public Function RasFunc(unMsg As Long, RasConnState As Long, _
dwError As Long) As Long
Dim result As String
Select Case RasConnState
Case RASCS_OpenPort
result = "Opening port"
Case RASCS_PortOpened
result = "Port opened"
Case RASCS_ConnectDevice
result = "Connecting to device"
Case RASCS_DeviceConnected
result = "Device connected"
Case RASCS_AllDevicesConnected
result = "All devices connected"
Case RASCS_Authenticate
result = "Authenticating"
Case RASCS_AuthNotify
If dwError = 0 Then
result = "Authentication Complete"
Else
result = "Authentication Failed"
End If
Case RASCS_AuthRetry
result = "Authentication Retry Requested"
Case RASCS_AuthCallback
result = "Remote server requested a callback"
Case RASCS_AuthChangePassword
result = "Client requested a password change"
Case RASCS_AuthProject
result = "Projection phase starting"
Case RASCS_AuthLinkSpeed
result = "Link speed calculation"
Case RASCS_AuthAck
result = "Authentication phase started"
Case RASCS_ReAuthenticate
result = "Reauthentication started"
Case RASCS_Authenticated
result = "Authentication complete" |
|
|
|
|
|